home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / C / Applications / Tcl-Tk 8.0 / Pre-installed version / tcl8.0 / tests / all next >
Encoding:
Text File  |  1997-08-15  |  489 b   |  23 lines  |  [TEXT/ALFA]
  1. # This file contains a top-level script to run all of the Tcl
  2. # tests.  Execute it by invoking "source all" when running tclTest
  3. # in this directory.
  4. #
  5. # SCCS: @(#) all 1.8 97/08/01 11:07:14
  6.  
  7. if {$tcl_platform(os) == "Win32s"} {
  8.     set files [glob *.tes]
  9. } else {
  10.     set files [glob *.test]
  11. }
  12.  
  13. foreach i [lsort $files] {
  14.     if [string match l.*.test $i] {
  15.     # This is an SCCS lock file;  ignore it.
  16.     continue
  17.     }
  18.     puts stdout $i
  19.     if [catch {source $i} msg] {
  20.     puts $msg
  21.     }    
  22. }
  23.